home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed14.d64 / lesson 11 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  230 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <N0>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 4     (null)ART 1           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON  11               WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"            (null)ROVING ATNNSWERS OPEN            WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC ONON"
  46. 165 [141]90
  47. 170 [153]"LOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  LEFT$ERBERT SAID HE NEEDED 28 CENTS
  51. 210 PRINT"  TO BUY 2 BUNS AT 14 CENTS A BUN.        [196]OES HE?  (Y OR N)"
  52. 220 GOSUB81:GOSUB70
  53. 225 PRINT"             [145]"
  54. 230 INPUT A$
  55. 240 IFA$<>"Y"AND A$<>"[217]"ANDA$<>"YES"THEN270
  56. 250 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  57. 260 P=P+1:GOTO300
  58. 270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  59. 275 IFZ=2THENG=G+1:GOTO295
  60. 280 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  61. 290 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO225
  62. 295 "  [212]HE ANSWER IS [217]ES[150].                ":GOSUB82
  63. 297 PRINT"  2 X 14 = 28   ":GOSUB82:GOSUB90
  64. 300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
  65. 305 PRINT"  [215]AS [197]SMERALDA RIGHT WHEN SHE SAID
  66. 310 [153]"  THAT A BANANA WORTH 23 CENTS AND AN
  67. 315 PRINT"  APPLE AT 12 CENTS WOULD COST 36         CENTS IN ALL?
  68. 317 [153]"  (PRESS (null) OR (null))"
  69. 320 [141]81:[141]70
  70. 325 [153]"             ON"
  71. 330 [133] A$
  72. 340 [139]A$[179][177]"N"[175]A$[179][177]"(null)"[175]A$[179][177]"NO"[167]370
  73. 350 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  74. 360 P[178]P[170]1:[137]400
  75. 370 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  76. 375 [139]Z[178]2 [167] G[178]G[170]1:[137]395
  77. 380 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  78. 390 [153]"OPENONON                                        ONONONONONONON":[137]325
  79. 395 "  (null)HE ANSWER IS (null)ODEF.                ":[141]82
  80. 397 [153]"  23 + 12 = 35   ":[141]82:[141]90
  81. 400 [153]"PRINT#LOAD               (null)UESTION 3 WAITOPEN":Z[178]0
  82. 405 [153]"  (null)HAT IS THE DIFFERENCE BETWEEN 28
  83. 410 PRINT"  AND 35.  [210]ICHARD SAID IT WAS 9.         [215]AS HE RIGHT?"
  84. 415 PRINT"  ([208]RESS [217] OR [206])"
  85. 420 GOSUB81:GOSUB70
  86. 425 PRINT"             [145]"
  87. 430 INPUT A$
  88. 440 IFA$<>"N"ANDA$<>"[206]"ANDA$<>"NO"THEN470
  89. 450 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  90. 460 P=P+1:GOTO500
  91. 470 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  92. 475 IFZ=2THENG=G+1:GOTO495
  93. 480 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  94. 490 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO425
  95. 495 "  [212]HE ANSWER IS [206]O[150].                ":GOSUB82
  96. 497 PRINT"  35 - 28 = 7   ":GOSUB82:GOSUB90
  97. 500 PRINT"[152][147]               [209]UESTION 4 [146][159]":Z=0
  98. 505 PRINT"  [201]S 60 CENTS ENOUGH FOR [208]RUDENCE TO
  99. 510 [153]"  TAKE TO THE STORE TO BUY 3 CAKES OF     SOAP AT 20 CENTS A CAN?
  100. 515 PRINT"  ([208]RESS [217] OR [206])"
  101. 520 GOSUB81:GOSUB70
  102. 525 PRINT"             [145]"
  103. 530 INPUT A$
  104. 540 IFA$<>"[217]"ANDA$<>"Y"ANDA$<>"YES"THEN570
  105. 550 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  106. 560 P=P+1:GOTO600
  107. 570 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  108. 575 IFZ=2THENG=G+1:GOTO595
  109. 580 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  110. 590 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO525
  111. 595 "  [212]HE ANSWER IS [217]ES[150].                ":GOSUB82
  112. 597 PRINT"  20 X 3 = 60   ":GOSUB82:GOSUB90
  113. 600 PRINT"[152][147]               [209]UESTION 5 [146][159]":Z=0
  114. 605 PRINT"  [199]RACE SAID A DOZEN FIVE-CENT COOKIES
  115. 610 [153]"  WOULD COST 70 CENTS.  (null)AS SHE           RIGHT?
  116. 615 PRINT"  ([208]RESS [217] OR [206])"
  117. 620 GOSUB81:GOSUB70
  118. 625 PRINT"             [145]"
  119. 630 INPUT A$
  120. 640 IFA$<>"N"ANDA$<>"[206]"AND$<>"NO"THEN670
  121. 650 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  122. 660 P=P+1:GOTO700
  123. 670 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  124. 675 IFZ=2THENG=G+1:GOTO695
  125. 680 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  126. 690 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO625
  127. 695 "  [212]HE ANSWER IS [206]O[150].                ":GOSUB82
  128. 697 PRINT"  12 X 5 = 60   ":GOSUB82:GOSUB90
  129. 700 PRINT"[152][147]               [209]UESTION 6 [146][159]":Z=0
  130. 705 PRINT"  [208]AD, 35 CENTS; PENCIL, 6 CENTS;
  131. 710 [153]"  ERASER, 10 CENTS.  MID$AMIE SAID THESE
  132. 715 PRINT"  WOULD COST 51 CENTS.  [201]S THAT RIGHT?
  133. 717 [153]"  ((null)RESS (null) OR (null))"
  134. 720 [141]81:[141]70
  135. 725 [153]"             ON"
  136. 730 [133] A$
  137. 740 [139]A$[179][177]"(null)"[175]A$[179][177]"Y"[175]A$[179][177]"YES"[167]770
  138. 750 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  139. 760 P[178]P[170]1:[137]800
  140. 770 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  141. 775 [139]Z[178]2[167] G[178]G[170]1:[137]795
  142. 780 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  143. 790 [153]"OPENONON                                        ONONONONONONON":[137]725
  144. 795 "  (null)HE ANSWER IS (null)ESDEF.                ":[141]82
  145. 797 [153]"  35 + 6 + 10 = 51    ":[141]82:[141]90
  146. 800 [153]"PRINT#LOAD               (null)UESTION 7 WAITOPEN":Z[178]0
  147. 805 [153]"  RIGHT$F 14 CHILDREN BROUGHT 5 CENTS EACH
  148. 810 PRINT"  TO BUY A BALL WORTH 80 CENTS, IS        THAT ENOUGH?
  149. 815 [153]"  ((null)RESS (null) OR (null))"
  150. 820 [141]81:[141]70
  151. 825 [153]"             ON"
  152. 830 [133] A$
  153. 840 [139]A$[179][177]"N"[175]A$[179][177]"(null)"[175]A$[179][177]"NO"[167] 870
  154. 850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  155. 860 P[178]P[170]1:[137]900
  156. 870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  157. 875 [139]Z[178]2[167] G[178]G[170]1:[137]895
  158. 880 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  159. 890 [153]"OPENONON                                        ONONONONONONON":[137]825
  160. 895 "  (null)HE ANSWER IS (null)ODEF.                ":[141]82
  161. 897 [153]"  5 X 14 = 70   ":[141]82:[141]90
  162. 900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
  163. 905 [153]"  MID$ACK SAID THAT ONE QUARTER OF A
  164. 910 PRINT"  METRE IS 25 CENTIMETRES.  [201]S THAT       RIGHT?
  165. 915 [153]"  ((null)RESS (null) OR (null))"
  166. 920 [141]81:[141]70
  167. 925 [153]"             ON"
  168. 930 [133] A$
  169. 940 [139]A$[179][177]"(null)"[175]A$[179][177]"Y"[175]A$[179][177]"YES"[167]970
  170. 950 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  171. 960 P[178]P[170]1:[137]1000
  172. 970 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  173. 975 [139]Z[178]2[167] G[178]G[170]1:[137]995
  174. 980 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  175. 990 [153]"OPENONON                                        ONONONONONONON":[137]925
  176. 995 "  (null)HE ANSWER IS (null)ESDEF.                ":[141]82
  177. 997 [153]"  100 / 4 = 25  ":[141]82:[141]90
  178. 1000 [153]"PRINT#LOAD               (null)UESTION 9 WAITOPEN":Z[178]0
  179. 1005 [153]"  (null)INSTON HAS 50 CENTS.  LEFT$E SAYS HE
  180. 1010 PRINT"  NEEDS 30 CENTS TO BUY A BAT AT
  181. 1015 [153]"  90 CENTS.  RIGHT$S THAT RIGHT?
  182. 1017 PRINT"  ([208]RESS [217] OR [206])"
  183. 1020 GOSUB81:GOSUB70
  184. 1025 PRINT"             [145]"
  185. 1030 INPUT A$
  186. 1040 IFA$<>"[206]"ANDA$<>"N"ANDA$<>"NO"THEN1070
  187. 1050 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  188. 1060 P=P+1:GOTO1100
  189. 1070 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  190. 1075 IFZ=2THEN G=G+1:GOTO1095
  191. 1080 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  192. 1090 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1025
  193. 1095 "  [212]HE ANSWER IS [206]O[150].                ":GOSUB82
  194. 1097 PRINT"  50 + 30 = 80   ":GOSUB82:GOSUB90
  195. 1100 PRINT"[152][147]               [209]UESTION 10 [146][159]":Z=0
  196. 1105 PRINT"  [201]F YOU HAVE 85 CENTS, CAN YOU BUY A
  197. 1110 [153]"  PEN AT 50 CENTS AND A PAD THAT COSTS    A QUARTER?
  198. 1115 PRINT"  ([208]RESS [217] OR [206])"
  199. 1120 GOSUB81:GOSUB70
  200. 1125 PRINT"             [145]"
  201. 1130 INPUT A$
  202. 1140 IFA$<>"Y"ANDA$<>"[217]"THEN1170
  203. 1150 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  204. 1160 GOTO1200
  205. 1170 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  206. 1175 IFZ=2THEN G=G+1:GOTO1195
  207. 1180 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  208. 1190 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1125
  209. 1195 "  [212]HE ANSWER IS [217]ES[150].                ":GOSUB82
  210. 1197 PRINT"  50 + 25 = 75   ":GOSUB82:GOSUB90
  211. 1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
  212. 1205 D=W-G:C=10-W
  213. 1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  214. 1215 [153]"                 ";C
  215. 1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  216. 1225 PRINT"                 ";D
  217. 1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
  218. 1235 [153]"                 ";G;""
  219. 1245 [141]90
  220. 1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
  221. 1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
  222. 1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
  223. 1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
  224. 1270 [139]R$[178]"R"[167][140]:[137]100
  225. 1280 [153]"LOAD (null)ETURNING TO THE MENU
  226. 1285 LOAD"MENU",8
  227. 1290 RUN
  228. 1295 END
  229. 1300 REM BILL CUMBERLAND 90:08:01
  230.